#!
$name = $0;

print $0 =~ /\\([^\\]+)$/;